home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / muirexx2.1 / demos / muirexxbuild / change_object.rexx < prev    next >
OS/2 REXX Batch file  |  1996-07-23  |  449b  |  22 lines
  1. /* */
  2. options results
  3. parse arg obj
  4.  
  5. /* Attribute TAG ID definitions */
  6.  
  7. List_Active =                     0x8042391c /* V4  isg LONG              */
  8.  
  9. address BUILD
  10.  
  11. list ID DLST ATTRS List_Active
  12. dpos = result
  13. list ID DLST POS dpos
  14. line = delword(result,2,1)
  15. if line ~= '' then do
  16.     npos = wordindex(line,2)-1
  17.     if npos > 0 then line = insert(obj' ',line,wordindex(line,2)-1)
  18.     else line = line||obj
  19.     call 'build:ask_object' line
  20. end
  21. exit
  22.